home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 August
/
CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso
/
disc2
/
programr
/
vbasic
/
receipt.exe
/
SHIPDLG.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
8KB
|
263 lines
VERSION 2.00
Begin Form Form7
Caption = "Ship To:"
ClientHeight = 3975
ClientLeft = 1275
ClientTop = 1635
ClientWidth = 7155
Height = 4380
Left = 1215
LinkMode = 1 'Source
LinkTopic = "Form7"
ScaleHeight = 265
ScaleMode = 3 'Pixel
ScaleWidth = 477
Top = 1290
Width = 7275
Begin CommandButton Command2
Caption = "Cancel"
Height = 375
Left = 4080
TabIndex = 6
Top = 3360
Width = 1935
End
Begin CommandButton Command1
Caption = "OK"
Height = 375
Left = 1200
TabIndex = 5
Top = 3360
Width = 1935
End
Begin VBedit BEdit6
CellHeight = 32
CellWidth = 22
CharSet = 16388
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 4560
TabIndex = 13
Top = 2520
Version = 268435458
Width = 1815
End
Begin VBedit BEdit5
CellHeight = 32
CellWidth = 22
CharSet = 16386
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 12
Top = 2520
Version = 268435458
Width = 855
End
Begin VBedit BEdit4
CellHeight = 32
CellWidth = 22
CharSet = 16651
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 11
Top = 1920
Version = 268435458
Width = 5775
End
Begin VBedit BEdit3
CellHeight = 32
CellWidth = 22
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 10
Top = 1320
Version = 268435458
Width = 5775
End
Begin VBedit BEdit2
CellHeight = 32
CellWidth = 22
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 9
Top = 720
Version = 268435458
Width = 5775
End
Begin VBedit BEdit1
CellHeight = 32
CellWidth = 22
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 7
Top = 120
Version = 268435458
Width = 5775
End
Begin Label Label6
Caption = "Zip Code:"
Height = 255
Left = 3240
TabIndex = 8
Top = 2640
Width = 855
End
Begin Label Label5
Caption = "State:"
Height = 255
Left = 120
TabIndex = 4
Top = 2640
Width = 615
End
Begin Label Label4
Caption = "City:"
Height = 255
Left = 120
TabIndex = 3
Top = 2040
Width = 495
End
Begin Label Label3
Caption = "Address:"
Height = 255
Left = 120
TabIndex = 2
Top = 1440
Width = 735
End
Begin Label Label2
Caption = "Last Name:"
Height = 255
Left = 120
TabIndex = 1
Top = 840
Width = 975
End
Begin Label Label1
Caption = "First Name:"
Height = 255
Left = 120
TabIndex = 0
Top = 240
Width = 975
End
End
Sub Command1_Click ()
Form1.ShipName.Text = LTrim$(BEdit1.Text + " " + BEdit2.Text)
Form1.ShipAddr.Text = LTrim$(BEdit3.Text)
Form1.ShipCity.Text = LTrim$(BEdit4.Text)
Form1.ShipState.Text = BEdit5.Text
Form1.ShipZip.Text = BEdit6.Text
Unload Form7
End Sub
Sub Command2_Click ()
Unload Form7
End Sub
Sub Form_Load ()
Form7.Top = (Screen.Height - Form7.Height) / 2
Form7.Left = (Screen.Width - Form7.Width) / 2
tmp$ = Form1.ShipName.Text
x = InStr(1, tmp$, " ")
If x > 0 Then
BEdit1.Text = Mid$(tmp$, 1, x)
BEdit2.Text = Mid$(tmp$, x, Len(tmp$))
Else
BEdit1.Text = tmp$
BEdit2.Text = ""
End If
BEdit3.Text = Form1.ShipAddr.Text
BEdit4.Text = Form1.ShipCity.Text
BEdit5.Text = Form1.ShipState.Text
BEdit6.Text = Form1.ShipZip.Text
End Sub